﻿Imports MapGenerator.Map
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim m As New Map
        For y As Integer = 1 To m.Height
            For x As Integer = 1 To m.Width
                Select Case m(x, y).Land
                    Case LandType.Ocean
                        If m(x, y).Bonus = BonusType.Fish Then
                            TextBox1.Text &= "X"
                        Else
                            TextBox1.Text &= " "
                        End If
                    Case LandType.Plains
                        Select Case m(x, y).Bonus
                            Case BonusType.Cattle
                                TextBox1.Text &= "C"
                            Case BonusType.Grain
                                TextBox1.Text &= "G"
                            Case BonusType.Sugar
                                TextBox1.Text &= "S"
                            Case BonusType.Tobacco
                                TextBox1.Text &= "T"
                            Case BonusType.Wood
                                TextBox1.Text &= "W"
                            Case Else
                                TextBox1.Text &= "#"
                        End Select
                    Case LandType.Foothills
                        TextBox1.Text &= "."
                    Case LandType.Marsh
                        TextBox1.Text &= "_"
                    Case LandType.Mountain
                        TextBox1.Text &= "^"
                    Case LandType.River
                        TextBox1.Text &= "`"
                    Case Else 'LandType.Undefined
                        TextBox1.Text &= "X"
                End Select
            Next
            TextBox1.Text &= vbCrLf
        Next
    End Sub

    
    
End Class
